home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / book2.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  6KB  |  182 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieNo,movieName
  2.  
  3. on moveMan direction
  4.   put stepNo + 1 into stepNo
  5.   if direction = 8 then
  6.     put 0 into moveH
  7.     put -9 into moveV
  8.     put 0 into RmoveH
  9.     put -72 into RmoveV
  10.     put 19 into startCast
  11.     put 22 into endCast
  12.   else if direction = 2 then
  13.     put 0 into moveH
  14.     put 9 into moveV
  15.     put 0 into RmoveH
  16.     put 72 into RmoveV
  17.     put 15 into startCast
  18.     put 18 into endCast
  19.   else if direction = 4 then
  20.     put -12 into moveH
  21.     put 0 into moveV
  22.     put -48 into RmoveH
  23.     put 0 into RmoveV
  24.     put 23 into startCast
  25.     put 26 into endCast
  26.   else if direction = 6 then
  27.     put 12 into moveH
  28.     put 0 into moveV
  29.     put 48 into RmoveH
  30.     put 0 into RmoveV
  31.     put 27 into startCast
  32.     put 30 into endCast
  33.   end if
  34.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  35.     SET THE CASTNUM OF SPRITE 13 TO startCast
  36.     UPDATESTAGE
  37.     mMove girl1
  38.     mMove girl2
  39.     EXIT
  40.   END IF
  41.   if direction = 2 then
  42.     repeat with spno in gEntranceList
  43.       if sprite 14 intersects spno then
  44.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  45.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  46.         UPDATESTAGE
  47.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  48.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  49.         UPDATESTAGE
  50.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  51.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  52.         UPDATESTAGE
  53.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  54.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  55.         UPDATESTAGE
  56.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  57.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  58.         UPDATESTAGE
  59.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  60.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  61.         UPDATESTAGE
  62.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  63.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  64.         UPDATESTAGE
  65.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  66.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 12
  67.         UPDATESTAGE
  68.         put 391 into manH
  69.         put 155 into manV
  70.         put 383 into raderH
  71.         put 146 into raderV
  72.         play done
  73.         exit
  74.       end if
  75.     end repeat
  76.   end if
  77.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  78.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  79.   updateStage
  80.   if stepNo >= 5 then
  81.     repeat with spno in gGirlList
  82.       if sprite 14 intersects spno then
  83.         if random(7) = 2 then
  84.           go to marker(1)
  85.           
  86.           nanpa
  87.           
  88.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  89.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  90.           exit
  91.         end if
  92.         put getaProp(gMovieList,spno) into movieNo
  93.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  94.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  95.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  96.         puppetSprite 48, False
  97.         updateStage
  98.         sound stop 1
  99.         put "B" into movieName
  100.         playQTMovie
  101.         put value(Hpoint) into thisHpoint
  102.         if thisHpoint > 0 then
  103.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  104.         else
  105.           put abs(thisHpoint) into Hpoint
  106.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  107.         end if
  108.         put totalHpoint + thisHpoint into totalHpoint
  109.         put totalHpoint into field "Hpoint"
  110.         put 0 into stepNo
  111.         EXIT
  112.       END IF
  113.     END REPEAT
  114.   end if
  115.   repeat with spno in gBlockList
  116.     if sprite 14 intersects spno then
  117.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  118.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  119.       UPDATESTAGE
  120.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  121.       UPDATESTAGE
  122.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  123.       UPDATESTAGE
  124.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  125.       UPDATESTAGE
  126.       SET THE CASTNUM OF SPRITE 13 TO startCast
  127.       UPDATESTAGE
  128.       mMove girl1
  129.       mMove girl2
  130.       EXIT
  131.     end if
  132.   end repeat
  133.   IF NOT(SPRITE 14 WITHIN 3) THEN
  134.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  135.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  136.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  137.     UPDATESTAGE
  138.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  139.     UPDATESTAGE
  140.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  141.     UPDATESTAGE
  142.     SET THE CASTNUM OF SPRITE 13 TO startCast
  143.     UPDATESTAGE
  144.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  145.     UPDATESTAGE
  146.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  147.     UPDATESTAGE
  148.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  149.     UPDATESTAGE
  150.     SET THE CASTNUM OF SPRITE 13 TO startCast
  151.     UPDATESTAGE
  152.     mMove girl1
  153.     mMove girl2
  154.   ELSE
  155.     if direction = 8 or direction = 2 then
  156.       put 2 into step
  157.     else
  158.       put 1 into step
  159.     end if
  160.     repeat with i = 1 to step
  161.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  162.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  163.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  164.       UPDATESTAGE
  165.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  166.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  167.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  168.       UPDATESTAGE
  169.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  170.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  171.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  172.       UPDATESTAGE
  173.       SET THE CASTNUM OF SPRITE 13 TO startCast
  174.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  175.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  176.       UPDATESTAGE
  177.     end repeat
  178.     mMove girl1
  179.     mMove girl2
  180.   END IF
  181. end
  182.